Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/GWAda 1.5.1/GW-Ada⁄Ed-MacProgs/Spider/DRAW10.ADA

Text File | 1994-01-10 | 206 b | 19 lines | [TEXT/Anon]

WITH Spider; USE Spider;
PROCEDURE Drawing10 IS
BEGIN
Start;
Red;
WHILE NOT AtWall LOOP
     Step;
END LOOP;
Black;
Turn;
Step;
Turn;
Green;
WHILE NOT AtWall LOOP
     Step;
END LOOP;
Quit;
END Drawing10;